home *** CD-ROM | disk | FTP | other *** search
Text File | 1988-08-03 | 34.4 KB | 1,417 lines |
- -- card: 17335 from stack: in.976
- -- bmap block id: 8635
- -- flags: 0000
- -- background id: 2295
- -- name: the sound sampler
- ----- HyperTalk script -----
- on mouseUp
- global Deselect
- lockcard
- if the visible of card field "Text" is true then
- show card field "Pitch"
- show card field "Rate"
- else
- hide card field "Rate"
- hide card field "Pitch"
- end if
-
- put "Music, Instrmt, Effects, People, Animal, Find Snds" into flist
- put offset (Deselect, flist) into it
- if it is zero then hide card field "Test"
- else show card field "Test"
-
- if the visible of card field "Test" is true then
- repeat with i = 17 to 20
- show card btn id i
- end repeat
- else
- repeat with i = 17 to 20
- hide card btn id i
- end repeat
- end if
- pass mouseUp
- end mouseUp
-
- on idle
- global Deselect
- if deselect <> empty then
- if deselect <> "Text" then set lockText of card field Deselect to true
- end if
- if visible of field "Mouse Loc2" is true then
- put the mouseLoc into field "Mouse Loc2"
- end if
- exit idle
- end idle
-
- on openCard
- set name of bkgnd btn id 72 to "Prev Card:" && short name of prev card
- set name of bkgnd btn id 73 to "Next Card:" && short name of next card
- pass openCard
- end openCard
-
- on mouseEnter
- if the icon of card btn id 13 is 18359 then
- lockcard
- put the short name of target into text
- if the short name of target is "Instrmt" then
- put "Instrument" into text
- end if
- if the short name of target is "Keybrd" then
- put "Keyboard" into text
- end if
- put first word of card field "rate" into rate
- put first word of card field "pitch" into pitch
- talk text,rate,pitch
- end if
- pass mouseEnter
- end mouseEnter
-
- on openCard
- global Deselect
- if Deselect is empty then
- set cursor to 4
- lockcard
- repeat with i = 1 to 6
- if hilite of card btn id i is true then
- send mouseUp to card btn id i
- end if
- end repeat
- mouseUp
- end if
- pass openCard
- end openCard
-
-
-
- -- part 1 (button)
- -- low flags: 00
- -- high flags: 8004
- -- rect: left=24 top=97 right=147 bottom=63
- -- title width / last selected line: 0
- -- icon id / first selected line: 5789 / 5789
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Music
- ----- HyperTalk script -----
- on mouseUp
- global Deselect
- if short name of target is Deselect then
- put empty into Deselect
- end if
- if Deselect <> empty then
- set the visible of card field Deselect to false
- set hilite of card btn Deselect to false
- end if
- set the visible of card field "Music" to not the visible of card field "Music"
- if the visible of card field "Music" is true then
- set scroll of card field "Music" to 0
- set hilite of me to true
- else
- set hilite of me to false
- pass mouseUp
- end if
- put short name of target into Deselect
- pass mouseUp
- end mouseUp
-
-
-
- -- part 2 (button)
- -- low flags: 00
- -- high flags: A004
- -- rect: left=66 top=97 right=147 bottom=105
- -- title width / last selected line: 0
- -- icon id / first selected line: 12157 / 12157
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Instrmt
- ----- HyperTalk script -----
- on mouseUp
- global Deselect
- set icon of me to 12157
- if short name of target is Deselect then
- put empty into Deselect
- end if
- if Deselect <> empty then
- set the visible of card field Deselect to false
- set hilite of card btn Deselect to false
- end if
- set the visible of card field "Instrmt" to not the visible of card field "Instrmt"
- if the visible of card field "Instrmt" is true then
- set scroll of card field "Instrmt" to 0
- set hilite of card button "Instrmt" to true
- else
- set hilite of me to false
- pass mouseUp
- end if
- put short name of target into Deselect
- pass mouseUp
- end mouseUp
-
-
-
- -- part 3 (button)
- -- low flags: 00
- -- high flags: 8004
- -- rect: left=108 top=97 right=147 bottom=147
- -- title width / last selected line: 0
- -- icon id / first selected line: 25845 / 25845
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: People
- ----- HyperTalk script -----
- on mouseUp
- global Deselect
- if short name of target is Deselect then
- put empty into Deselect
- end if
- if Deselect <> empty then
- set the visible of card field Deselect to false
- set hilite of card btn Deselect to false
- end if
- set the visible of card field "People" to not the visible of card field "People"
- if the visible of card field "People" is true then
- set scroll of card field "People" to 0
- play "Pee Wee's Giggle"
- set hilite of me to true
- else
- play "Pee Wee's Scream"
- set hilite of me to false
- pass mouseUp
- end if
- put short name of target into Deselect
- pass mouseUp
- end mouseUp
-
-
-
- -- part 4 (button)
- -- low flags: 00
- -- high flags: 8004
- -- rect: left=150 top=97 right=147 bottom=189
- -- title width / last selected line: 0
- -- icon id / first selected line: 5679 / 5679
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Animal
- ----- HyperTalk script -----
- on mouseUp
- global Deselect
- if short name of target is Deselect then
- put empty into Deselect
- end if
- if Deselect <> empty then
- set the visible of card field Deselect to false
- set hilite of card btn Deselect to false
- end if
- set the visible of card field "Animal" to not the visible of card field "Animal"
- if the visible of card field "Animal" is true then
- set scroll of card field "Animal" to 0
- set hilite of me to true
- else
- set hilite of me to false
- pass mouseUp
- end if
- put short name of target into Deselect
- pass mouseUp
- end mouseUp
-
-
-
-
- -- part 5 (button)
- -- low flags: 00
- -- high flags: 8004
- -- rect: left=24 top=149 right=199 bottom=63
- -- title width / last selected line: 0
- -- icon id / first selected line: 32107 / 32107
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Effects
- ----- HyperTalk script -----
- on mouseUp
- global Deselect
- if short name of target is Deselect then
- put empty into Deselect
- end if
- if Deselect <> empty then
- set the visible of card field Deselect to false
- set hilite of card btn Deselect to false
- end if
- set the visible of card field "Effects" to not the visible of card field "Effects"
- if the visible of card field "Effects" is true then
- set scroll of card field "Effects" to 0
- set hilite of card btn "Effects" to true
- else
- set hilite of me to false
- pass mouseUp
- end if
- put short name of target into Deselect
- pass mouseUp
- end mouseUp
-
-
-
- -- part 6 (button)
- -- low flags: 00
- -- high flags: A004
- -- rect: left=66 top=220 right=270 bottom=105
- -- title width / last selected line: 0
- -- icon id / first selected line: 10019 / 10019
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Text
- ----- HyperTalk script -----
- on mouseUp
- set icon of me to 10019
- global Deselect, Text, Pitch, Rate
- if short name of target is Deselect then
- put empty into Deselect
- end if
- if Deselect <> empty then set the visible of card field Deselect to false
- if Deselect <> empty then set hilite of card button Deselect to false
- set the visible of card field "Text" to not the visible of card field "Text"
- if the visible of card field "Text" is true then
- set scroll of card field "Text" to 0
- set the hilite of me to true
- else set the hilite of me to false
- if the visible of card field "Text" is true then
- put " Whatever is typed in this field your Macintosh will say when you press the button" && quote & "Say It" & quote &"." into card field "Text"
- else put empty into card field "Text"
- put short name of me into Deselect
- pass mouseUp
- end mouseUp
-
-
-
- -- part 7 (button)
- -- low flags: 00
- -- high flags: 8004
- -- rect: left=108 top=149 right=199 bottom=147
- -- title width / last selected line: 0
- -- icon id / first selected line: 2186 / 2186
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Tunes
- ----- HyperTalk script -----
- on mousedown
- global PlaySomething, Tempo, Tune
- --put bkgnd field id 219 into temp
- put the rect of the target into holder
- put item 1 of holder into horiz
- put item 2 of holder into vert
- get PopUpMenu(" Volga Boatman ; Nachtmusik ; Star Trek ; Star Span Banner ; Jingle Bells ; Happy Birthday ; Mozart 40 ; Johnny ; Bethoven's 5th ; Fur Elise ; Charge ; Fast Scales",7, vert, horiz)
- if it is 1 then
- put "c4e a3 d4q a3h c4e a3 d4q a3h c4q f ee fs es dq c4e a3 d4q a3h" into Tune
- put "tempo 50" into Speed
- end if
- if it is 2 then
- put "c4q. g3e c4q. g3e c4e g3 c4 e gh f4q. de fq. de f d b3 d4 g3h" into Tune
- put "tempo 120" into Tempo
- end if
- if it is 3 then
- put "g3h f4h. eq dq3 c b3 a#w a3q gh g4h. fq eq3 d c b3w" into Tune
- put "tempo 140" into Tempo
- end if
- if it is 4 then
- put "g4e. es cq e g c5h e5e. ds cq e4 f# gh" into Tune
- put "tempo 80" into Tempo
- end if
- if it is 5 then
- put "e4e e eq ee e eq e4e g ce. ds eh" into Tune
- put "tempo 120" into Tempo
- end if
- if it is 6 then
- put "g3e. gs aq g c4 b3h g3e. gs aq g d4 ch g3e. gs g4q e c b3 ah f4e. fs eq c d ch." into Tune
- put "tempo 110" into Tempo
- end if
- if it is 7 then
- put "c#4e c cq c#e c cq c#e c cq g#h g#4e g fq fe d# c#q c#e c a#3q a#h" into Tune
- put "tempo 200" into Tempo
- end if
- if it is 8 then
- put "g3q c4 c c ch dq d#h dq d#h cq a#3w g3q a#w." into Tune
- put "tempo 360" into Tempo
- end if
- if it is 9 then
- put "g4s g g d#h fs f f dh" into Tune
- put "tempo 80" into Tempo
- end if
- if it is 10 then
- put "e5e d# e d# e b4 d5 c a4q. ce e a bq. ee g# b c5q. e4e e5 d# e d# e b4 d5 c a4q. ce e a bq. ee c5 b4 aq." into Tune
- put "tempo 120" into Tempo
- end if
- if it is 11 then
- put "g3 c4 e gh eq g" into Tune
- put "tempo 300" into Tempo
- end if
- if it is 12 then
- put "ce d e f g a b c5 d e f g a b c6e b5 a g f e d c b4 a g f e d cw" into Tune
- put "tempo 200" into Tempo
- end if
- if PlaySomething is empty then
- put "Play" && quote & "Sax" & quote into PlaySomething
- end if
- if Tempo is empty then
- put "tempo 20" into Tempo
- end if
- if Tune is empty then
- put quote & "(c4.)." & quote into Tune
- end if
- put PlaySomething && Tempo && Tune into card field "Test"
- do (card field "Test")
- pass mousedown
- end mousedown
-
-
-
- -- part 8 (button)
- -- low flags: 00
- -- high flags: A004
- -- rect: left=150 top=149 right=199 bottom=189
- -- title width / last selected line: 0
- -- icon id / first selected line: 4100 / 4100
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Tempo
- ----- HyperTalk script -----
- on mousedown
- global PlaySomething, Tempo, Tune
- put the rect of the target into holder
- put item 1 of holder into horiz
- put item 2 of holder into vert
- get PopUpMenu(" 20 ; 40 ; 60 ; 80 ; 100 ; 120 ; 140 ; 160 ; 180 ; 200 ; 220 ; 240 ; 260 ; 280 ; 300 ; 320 ; 340 ; 360 ; 380 ; 400",8, vert, horiz)
- set the name of me to char 1 to 3 of word it of " 20 40 60 80 100 120 140 160 180 200 220 240 260 280 300 320 340 360 380 400"
- if word 1 of the short name of the target is "card" then
- set the name of me to "200"
- end if
- put "tempo" && short name of the target into Tempo
- if PlaySomething is empty then
- put "Play" && quote & "Sax" & quote into PlaySomething
- end if
- if Tune is empty then
- put quote & "(c4.)." & quote into Tune
- end if
- put PlaySomething && Tempo && Tune into card field "Test"
- set the name of me to "Tempo"
- do (card field "Test")
- pass mousedown
- end mousedown
-
-
-
- -- part 9 (button)
- -- low flags: 00
- -- high flags: A004
- -- rect: left=24 top=220 right=270 bottom=63
- -- title width / last selected line: 0
- -- icon id / first selected line: 2123 / 2123
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Say It
- ----- HyperTalk script -----
- on mouseUp
- global Text, Rate, Pitch
- if the visible of card field "Text" is false then
- send mouseUp to card button "Text"
- end if
- put card field "Text" into Text
- put second word of card field "Rate" into Rate
- put second word of card field "Pitch" into Pitch
- talk Text,Rate,Pitch
- end mouseUp
-
-
-
- -- part 13 (button)
- -- low flags: 00
- -- high flags: 0000
- -- rect: left=155 top=262 right=292 bottom=185
- -- title width / last selected line: 0
- -- icon id / first selected line: 25507 / 25507
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Read Aloud Switch
- ----- HyperTalk script -----
- on mouseUp
- if icon of me is 18359 then
- set icon of me to 3618
- play "Click"
- set icon of me to 25507
- play "Click"
- talk "No please don't read the names aloud.",130, 200
- exit mouseUp
- end if
- if icon of me is 25507 then
- set icon of me to 3618
- play "Click"
- set icon of me to 18359
- play "Click"
- talk "Yes please read the names aloud.",130, 200
- exit mouseUp
- end if
- end mouseUp
-
-
- if the short name of me is "Yes" then
- set name of me to "No"
- talk "No please don't read the names aloud.",130, 200
- else
- set name of me to "Yes"
- talk "Yes please read the names aloud.",130, 200
- end if
- pass mouseUp
-
-
-
- -- part 10 (button)
- -- low flags: 00
- -- high flags: 8004
- -- rect: left=66 top=149 right=199 bottom=105
- -- title width / last selected line: 0
- -- icon id / first selected line: 24384 / 24384
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Keybrd
- ----- HyperTalk script -----
- on mousedown
- go to next card
- pass mousedown
- end mousedown
-
- on mouseUp
-
- end mouseUp
-
-
- -- part 11 (button)
- -- low flags: 00
- -- high flags: A004
- -- rect: left=108 top=220 right=270 bottom=147
- -- title width / last selected line: 0
- -- icon id / first selected line: 29778 / 29778
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Pitch
- ----- HyperTalk script -----
- on mousedown
- global Text, Pitch, Rate
- put the rect of the target into holder
- put item 1 of holder into horiz
- put item 2 of holder into vert
- get PopUpMenu("Normal; 120 ; 140 ; 160 ; 180 ; 200 ; 220 ; 240 ; 260 ; 280 ; 300 ; 320 ; 340 ; 360 ; 380 ; 400 ; 420 ; 440 ; 460 ; 480",14, vert, horiz)
- set the name of me to char 1 to 7 of word it of " Normal 120 140 160 180 200 220 240 260 280 300 320 340 360 380 400 420 440 460 480"
- if word 1 of the short name of the target is "card" then
- set the name of me to "100"
- end if
- if the short name of the target is "Normal" then
- set the name of me to "100"
- end if
- put "Pitch" && short name of the target into card field "Pitch"
- if Rate is empty then
- put "140" into Rate
- end if
- if the visible of card field "Text" is false then
- send mouseUp to card button "Text"
- end if
- put card field "Text" into Text
- put second word of card field "Rate" into Rate
- put second word of card field "Pitch" into Pitch
- talk Text,Rate,Pitch
- set the name of me to "Pitch"
- pass mousedown
- end mousedown
-
-
-
- -- part 12 (button)
- -- low flags: 00
- -- high flags: A004
- -- rect: left=150 top=220 right=270 bottom=189
- -- title width / last selected line: 0
- -- icon id / first selected line: 13879 / 13879
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Rate
- ----- HyperTalk script -----
- on mousedown
- global Text, Pitch, Rate
- put the rect of the target into holder
- put item 1 of holder into horiz
- put item 2 of holder into vert
- get PopUpMenu(" 1 ; 20 ; 40 ; 60 ; 80 ; 100 ; 120 ; 140 ; 160 ; 180 ; 200 ; 220 ; 240 ; 260 ; 280 ; 300 ; 320 ; 340 ; 360 ; 380 ; 400; 420",14, vert, horiz)
- set the name of me to char 1 to 3 of word it of " 1 20 40 60 80 100 120 140 160 180 200 220 240 260 280 300 320 340 360 380 400 420"
- if word 1 of the short name of the target is "card" then
- set the name of me to "120"
- end if
- put "Rate" && short name of the target into card field "Rate"
- if Pitch is empty then
- put "140" into Pitch
- end if
- if the visible of card field "Text" is false then
- send mouseUp to card button "Text"
- end if
- put card field "Text" into Text
- put second word of card field "Rate" into Rate
- put second word of card field "Pitch" into Pitch
- talk Text,Rate,Pitch
- set the name of me to "Rate"
- pass mousedown
- end mousedown
-
-
-
- -- part 14 (button)
- -- low flags: 00
- -- high flags: A004
- -- rect: left=405 top=243 right=293 bottom=444
- -- title width / last selected line: 0
- -- icon id / first selected line: 4188 / 4188
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Info
- ----- HyperTalk script -----
- on mouseUp
- do short name of me
- end mouseUp
-
-
-
- -- part 15 (button)
- -- low flags: 00
- -- high flags: A004
- -- rect: left=446 top=243 right=293 bottom=485
- -- title width / last selected line: 0
- -- icon id / first selected line: 4179 / 4179
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Index
- ----- HyperTalk script -----
- on mouseUp
- do short name of me
- end mouseUp
-
-
-
-
- -- part 16 (field)
- -- low flags: 80
- -- high flags: 0007
- -- rect: left=197 top=75 right=106 bottom=491
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 14
- -- part name: Test
-
-
- -- part 17 (button)
- -- low flags: 80
- -- high flags: A004
- -- rect: left=197 top=106 right=124 bottom=231
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Add
- ----- HyperTalk script -----
- on mouseUp
- global Deselect
- ask "What would you like to add to this list?"
- if it is empty then exit mouseUp
- lockcard
- put it into temp
- put LowerToUpper(char 1 of temp) into char 1 of temp
- put temp into line (number of lines in card field Deselect) + 1 of card field Deselect
- put SortLines( card field Deselect, "A" ) into card field Deselect
- put crunch(card field Deselect) into card field Deselect
- end mouseUp
-
-
-
-
-
-
-
- -- part 18 (button)
- -- low flags: 80
- -- high flags: A004
- -- rect: left=230 top=106 right=124 bottom=281
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Delete
- ----- HyperTalk script -----
- on mouseUp
- global Deselect
- ask "Enter EXACTLY name to delete"
- if it is empty then
- exit mouseup
- end if
- set the Cursor to 4
- put it into dename
- put 1 into linepointer
- put number of lines in card field Deselect into totalines
- Repeat until linepointer >= totalines
- put line linepointer of card field Deselect into thisline
- if dename = thisline then
- delete line linepointer of card field Deselect
- exit repeat
- end if
- put (linepointer + 1) into linepointer
- end repeat
- If linepointer >= totalines then
- end if
- put SortLines( card field Deselect, "A" ) into card field Deselect
- put crunch( card field Deselect) into card field Deselect
- end mouseup
-
-
-
- -- part 19 (button)
- -- low flags: 80
- -- high flags: A004
- -- rect: left=280 top=106 right=124 bottom=318
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Sort
- ----- HyperTalk script -----
- on mouseUp
- global Deselect
- lockcard
- set cursor to 4
- repeat with i = 1 to number of lines of card field Deselect
- put LowerToUpper(char 1 of line i of card field Deselect) into char 1 of line i of card field Deselect
- end repeat
- put SortLines( card field Deselect, "A" ) into card field Deselect
- put crunch(card field Deselect) into card field Deselect
- end mouseUp
-
- --on mouseUp -- a faster sort
- global Deselect
- put SortLines( card field Deselect, "A" ) into card field Deselect
- put crunch(card field Deselect) into card field Deselect
- --end mouseUp
-
-
- -- part 20 (button)
- -- low flags: 80
- -- high flags: A004
- -- rect: left=317 top=106 right=124 bottom=375
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Play All
- ----- HyperTalk script -----
- on mouseUp
- global Deselect
- put number of lines in card field Deselect into lineNum
- put 1 into done
- repeat until done>lineNum
- get line done in card field Deselect
- if word 1 of line done in card field Deselect is "beep" then
- put quote & it & quote into card field "Test"
- do it
- else
- if word 1 of line done in card field Deselect is "Dial" then
- put it into card field "Test"
- do it
- else
- put "play" && quote & it & quote into card field "Test"
- play it
- wait until the sound is "done"
- end if
- end if
- add 1 to done
- end repeat
- end mouseUp
-
-
-
-
-
- -- part 21 (button)
- -- low flags: 00
- -- high flags: A004
- -- rect: left=374 top=106 right=124 bottom=441
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Find Snds
- ----- HyperTalk script -----
- on mouseUp
- global Deselect
- set cursor to 4
- lockcard
- push card
- if short name of target is Deselect then put empty into Deselect
- if Deselect <> empty then set the visible of card field Deselect to false
- if Deselect <> empty then set hilite of btn Deselect to false
- set the visible of card field "Find Snds" to not the visible of card field "Find Snds"
- if the visible of card field "Find Snds" is true then
- set hilite of me to true
- put empty into card field "Find Snds"
- set scroll of card field "Find Snds" to 0
- put empty into card field "Test"
- else
- set hilite of me to false
- hide card field "Find Snds"
- click at 0,0
- exit mouseUp
- end if
- answer "List the sounds in this stack or another?" with "Cancel" or "Another" or "This"
- put it into temp
- unlockcard
- lockcard
- if it is "Cancel" then
- hide card field "Find Snds"
- set hilite of me to false
- click at 0,0
- else if temp is "Another" then
- put filename("STAK") into sName
- unlockcard
- lockcard
- if sName is empty then exit mouseUp
- put "You won't be able play these sounds, because they're in another stack"
- put "Use ResCopy to move the sounds you want to this stack" into card field "Test"
- hide btn "Play All"
- go to stack sName
- put Resources("snd ") into fred
- if fred is empty then
- answer "Oops, no sound resources found." with "Sorry"
- else
- pop card
- put fred into card field "Find Snds"
- end if
- else if temp is "This" then
- answer "Just this stack or all sounds available to it?" with "Cancel" or "All" or "Just This"
- put it into temp1
- unlockcard
- lockcard
- if it is "Cancel" then
- hide card field "Find Snds"
- set hilite of me to false
- click at 0,0
- exit mouseUp
- else if temp1 is "All" then
- put "Getting names of sounds in" && short name of this stack && "and the Home Stack"
- go to stack "Home"
- put Resources("snd ") into fred
- pop card
- put script of field "sndField" & fred into fred
- if fred is empty then
- answer "Oops, no sound resources found." with "Sorry"
- else
- pop card
- put fred into card field "Find Snds"
- end if
- else
- put script of field "sndField" into fred
- if fred is empty then
- answer "Oops, no sound resources found." with "Sorry"
- else
- put fred into card field "Find Snds"
- set scroll of card field "Find Snds" to 0
- put "Find Snds" into Deselect
- click at 0,0
- exit mouseUp
- end if
- end if
- end if
- put fred into card field "Find Snds"
- repeat with i = 1 to number of lines of card field "Find Snds"
- put LowerToUpper(char 1 of line i of card field "Find Snds") into char 1 of line i of card field "Find Snds"
- end repeat
- put SortLines( card field "Find Snds","A") into card field "Find Snds"
- put crunch(card field "Find Snds") into card field "Find Snds"
- set scroll of card field "Find Snds" to 0
- put "Find Snds" into Deselect
- unlockcard
- hide msg
- beep 2
- pass mouseUp
- end mouseUp
-
-
-
- -- part 22 (button)
- -- low flags: 00
- -- high flags: A004
- -- rect: left=440 top=106 right=124 bottom=491
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Install
- ----- HyperTalk script -----
- on mouseUp
- ResCopy
- end mouseUp
-
-
-
- -- part 23 (field)
- -- low flags: 81
- -- high flags: 0007
- -- rect: left=197 top=123 right=300 bottom=491
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 3
- -- text size: 12
- -- style flags: 0
- -- line height: 14
- -- part name: Music
- ----- HyperTalk script -----
- on mouseUp
- global holder, PlaySomething
- put the optionkey into keystate
- if the selection is empty then
- set lockText of the target to false -- unlock to enable text editing
- click at (first item of the rect of the target), (second item of the clickLoc)
- click at (last item of the rect of the target)+59, (second item of the clickLoc) with shiftKey
- put the selection into holder
- click at 0,0 --disable selection
- set lockText of the target to true
- end if
- put "play" && quote & holder & quote into PlaySomething
- put PlaySomething into card field "Test"
- do (card field "Test")
- pass mouseUp
- end mouseUp
-
-
-
- -- part 24 (field)
- -- low flags: 81
- -- high flags: 0007
- -- rect: left=197 top=123 right=300 bottom=490
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 3
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Instrmt
- ----- HyperTalk script -----
- on mouseUp
- global holder, PlaySomething
- put the optionkey into keystate
- if the selection is empty then
- set lockText of the target to false -- unlock to enable text editing
- click at (first item of the rect of the target), (second item of the clickLoc)
- click at (last item of the rect of the target)+59, (second item of the clickLoc) with shiftKey
- put the selection into holder
- click at 0,0 --disable selection
- set lockText of the target to true
- end if
- put "play" && quote & holder & quote into PlaySomething
- put PlaySomething into card field "Test"
- do (card field "Test")
- pass mouseUp
- end mouseUp
-
-
-
- -- part 25 (field)
- -- low flags: 81
- -- high flags: 0007
- -- rect: left=197 top=123 right=300 bottom=490
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 3
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: People
- ----- HyperTalk script -----
- on mouseUp
- global holder, PlaySomething
- put the optionkey into keystate
- if the selection is empty then
- set lockText of the target to false -- unlock to enable text editing
- click at (first item of the rect of the target), (second item of the clickLoc)
- click at (last item of the rect of the target)+59, (second item of the clickLoc) with shiftKey
- put the selection into holder
- click at 0,0 --disable selection
- set lockText of the target to true
- end if
- put "play" && quote & holder & quote into PlaySomething
- put PlaySomething into card field "Test"
- do (card field "Test")
- pass mouseUp
- end mouseUp
-
-
-
- -- part 26 (field)
- -- low flags: 81
- -- high flags: 0007
- -- rect: left=197 top=123 right=300 bottom=490
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 3
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Animal
- ----- HyperTalk script -----
- on mouseUp
- global holder, PlaySomething
- put the optionkey into keystate
- if the selection is empty then
- set lockText of the target to false -- unlock to enable text editing
- click at (first item of the rect of the target), (second item of the clickLoc)
- click at (last item of the rect of the target)+59, (second item of the clickLoc) with shiftKey
- put the selection into holder
- click at 0,0 --disable selection
- set lockText of the target to true
- end if
- put "play" && quote & holder & quote into PlaySomething
- put PlaySomething into card field "Test"
- do (card field "Test")
- pass mouseUp
- end mouseUp
-
-
-
- -- part 27 (field)
- -- low flags: 81
- -- high flags: 0007
- -- rect: left=197 top=123 right=300 bottom=490
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 3
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Effects
- ----- HyperTalk script -----
- on mouseUp
- global holder, PlaySomething
- put the optionkey into keystate
- if the selection is empty then
- set lockText of the target to false -- unlock to enable text editing
- click at (first item of the rect of the target), (second item of the clickLoc)
- click at (last item of the rect of the target)+59, (second item of the clickLoc) with shiftKey
- put the selection into holder
- click at 0,0 --disable selection
- set lockText of the target to true
- end if
- if first word of holder is "beep" then
- put holder into card field "Test"
- do (card field "Test")
- exit mouseUp
- else
- if first word of holder is "dial" then
- put holder into card field "Test"
- do (card field "Test")
- exit mouseUp
- else
- put "play" && quote & holder & quote into PlaySomething
- put PlaySomething into card field "Test"
- do (card field "Test")
- end if
- end if
- pass mouseUp
- end mouseUp
-
-
-
- -- part 28 (field)
- -- low flags: 80
- -- high flags: 0002
- -- rect: left=197 top=75 right=93 bottom=341
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 3
- -- text size: 12
- -- style flags: 256
- -- line height: 16
- -- part name: pitch
-
-
- -- part 29 (field)
- -- low flags: 80
- -- high flags: 0002
- -- rect: left=341 top=75 right=93 bottom=490
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 3
- -- text size: 12
- -- style flags: 256
- -- line height: 16
- -- part name: Rate
-
-
- -- part 30 (field)
- -- low flags: 81
- -- high flags: 0007
- -- rect: left=197 top=93 right=299 bottom=490
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 3
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Text
- ----- HyperTalk script -----
- on mouseUp
- global holder, PlaySomething
- put the optionkey into keystate
- if the selection is empty then
- set lockText of the target to false -- unlock to enable text editing
- click at (first item of the rect of the target), (second item of the clickLoc)
- click at (last item of the rect of the target)+59, (second item of the clickLoc) with shiftKey
- put the selection into holder
- click at 0,0 --disable selection
- set lockText of the target to true
- end if
- put "play" && quote & holder & quote into PlaySomething
- put PlaySomething into card field "Test"
- do (card field "Test")
- pass mouseUp
- end mouseUp
-
-
-
- -- part 31 (button)
- -- low flags: 00
- -- high flags: 8004
- -- rect: left=403 top=311 right=327 bottom=455
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Sounds
- ----- HyperTalk script -----
- on mouseUp
- set hilite of me to true
- beep
- answer "You're already in" && quote & short name of me & quote & "!"
- end mouseUp
-
-
-
- -- part 32 (field)
- -- low flags: 81
- -- high flags: 0007
- -- rect: left=197 top=123 right=300 bottom=490
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 3
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Find Snds
- ----- HyperTalk script -----
- on mouseUp
- global holder, PlaySomething
- put the optionkey into keystate
- if the selection is empty then
- set lockText of the target to false -- unlock to enable text editing
- click at (first item of the rect of the target), (second item of the clickLoc)
- click at (last item of the rect of the target)+59, (second item of the clickLoc) with shiftKey
- put the selection into holder
- click at 0,0 --disable selection
- set lockText of the target to true
- end if
- put "play" && quote & holder & quote into PlaySomething
- put PlaySomething into card field "Test"
- do (card field "Test")
- pass mouseUp
- end mouseUp
-
-
-
- -- part contents for background part 56
- ----- text -----
- the sound sampler
-
- -- part contents for background part 78
- ----- text -----
- Prev Card: the helpful hierarchy
-
- -- part contents for background part 79
- ----- text -----
- Next Card: keyboard
-
- -- part contents for card part 23
- ----- text -----
- Beethoven 3
- Beethoven 3a
- Beethoven 3b
- Choir
- Doo
- Halleklujah
- Hey
- Jude
- Marimba
- Now
- Orchestra
- Twilight Zone Theme
-
- -- part contents for card part 27
- ----- text -----
- Beep
- Beep 3
- Beep 6
- Beep the random of 10
- Boing
- Car
- Clang
- Click
- Crunch
- Dial "1-408-996-1010"
- DoorClosing
- DoorOpening
- Metal Falling
- SpinCylinder
- Static
- Switch
- Uuh
- Yeow
-
- -- part contents for card part 28
- ----- text -----
- Pitch 380
-
- -- part contents for card part 29
- ----- text -----
- Rate 280
-
- -- part contents for card part 26
- ----- text -----
- Cat
- Dog
- Frog
-
- -- part contents for card part 25
- ----- text -----
- 0
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- A
- B
- C
- Coming
- D
- E
- Evil Laugh
- F
- G
- Get Lost
- H
- Hello
- I
- J
- K
- L
- M
- N
- O
- P
- Q
- R
- S
- T
- U
- V
- W
- X
- Y
- Z
-
- -- part contents for card part 24
- ----- text -----
- Banjo
- Bass
- Drums
- Flute
- Harp
- Harpsicord
- Piano
- Sax
- Sitar
- Tuba
-
- -- part contents for card part 16
- ----- text -----
- play "Cat" tempo 110 g3e. gs aq g c4 b3h g3e. gs aq g d4 ch g3e. gs g4q e c b3 ah f4e. fs eq c d ch.
-
- -- part contents for card part 32
- ----- text -----
- 0
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- A
- B
- Boing
- C
- D
- E
- F
- G
- H
- Harpsichord
- I
- J
- K
- L
- M
- N
- O
- P
- Q
- R
- S
- Silence
- T
- U
- V
- W
- X
- Y
- Z
-
- -- part contents for background part 68
- ----- text -----
- 401,94
-
- -- part contents for background part 67
- ----- text -----
- Mouse Location:
-
- -- part contents for background part 82
- ----- text -----
- Free Space:
-
- -- part contents for background part 83
- ----- text -----
- 50.22 K
-
- -- part contents for background part 94
- ----- text -----
- About Stack Starter
- Allover Analyzer
- Animated Icons 1
- Animated Icons 2
- Animated Icons 3
- Animated Icons 4
- Animated Icons 5
- Animated Icons 6
- Author
-
- -- part contents for background part 112
- ----- text -----
- (Script Generator
- (Script Tutor
- (Smart Scripter
- Script of Bkgnd...
- Script of Button...
- Script of Card...
- Script of Field...
- Script of Home Stack
- Script of Stack...
- Sliders
- SoundEdit‚Ñ¢
- Sounds - snd Resources
- Speech Synthesis
- Stack Space Available
- Switches